/ Level 2005 Christmas (DVD) / Level_2005-XMAS_134_DVD_Knightshift.iso / Updates / Land of the Dead / System / GUI.u / GUIComponent_GUIComboBox_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 70 45 2f 2f 20 43 6f 70 |........|pE// Cop|
|00000010| 79 72 69 67 68 74 20 28 | 43 29 20 32 30 30 35 20 |yright (|C) 2005 |
|00000020| 42 72 61 69 6e 62 6f 78 | 20 47 61 6d 65 73 2e 20 |Brainbox| Games. |
|00000030| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00000040| 76 65 64 2e 0d 0a 2f 2f | 20 53 65 70 74 65 6d 62 |ved...//| Septemb|
|00000050| 65 72 20 32 37 2c 20 32 | 30 30 35 0d 0a 2f 2f 20 |er 27, 2|005..// |
|00000060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 0d 0a 2f 2f | 09 43 6c 61 73 73 3a 20 |====..//|.Class: |
|000000b0| 47 55 49 2e 47 55 49 43 | 6f 6d 62 6f 42 6f 78 0d |GUI.GUIC|omboBox.|
|000000c0| 0a 2f 2f 0d 0a 2f 2f 20 | 20 41 20 43 6f 6d 62 69 |.//..// | A Combi|
|000000d0| 6e 61 74 69 6f 6e 20 6f | 66 20 61 6e 20 45 64 69 |nation o|f an Edi|
|000000e0| 74 42 6f 78 2c 20 61 20 | 44 6f 77 6e 20 41 72 72 |tBox, a |Down Arr|
|000000f0| 6f 77 20 42 75 74 74 6f | 6e 20 61 6e 64 20 61 20 |ow Butto|n and a |
|00000100| 4c 69 73 74 42 6f 78 0d | 0a 2f 2f 0d 0a 2f 2f 20 |ListBox.|.//..// |
|00000110| 20 57 72 69 74 74 65 6e | 20 62 79 20 4d 69 63 68 | Written| by Mich|
|00000120| 65 6c 20 43 6f 6d 65 61 | 75 0d 0a 2f 2f 20 20 28 |el Comea|u..//  (|
|00000130| 63 29 20 32 30 30 32 2c | 20 45 70 69 63 20 47 61 |c) 2002,| Epic Ga|
|00000140| 6d 65 73 2c 20 49 6e 63 | 2e 20 20 41 6c 6c 20 52 |mes, Inc|.  All R|
|00000150| 69 67 68 74 73 20 52 65 | 73 65 72 76 65 64 0d 0a |ights Re|served..|
|00000160| 2f 2f 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |// =====|========|
|00000170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000180| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 0d 0a 63 6c 61 73 73 |=======.|...class|
|000001b0| 20 47 55 49 43 6f 6d 62 | 6f 42 6f 78 20 65 78 74 | GUIComb|oBox ext|
|000001c0| 65 6e 64 73 20 47 55 49 | 4d 75 6c 74 69 43 6f 6d |ends GUI|MultiCom|
|000001d0| 70 6f 6e 65 6e 74 0d 0a | 09 4e 61 74 69 76 65 3b |ponent..|.Native;|
|000001e0| 0d 0a 0d 0a 2f 2f 20 28 | 63 70 70 74 65 78 74 29 |....// (|cpptext)|
|000001f0| 0d 0a 2f 2f 20 28 63 70 | 70 74 65 78 74 29 0d 0a |..// (cp|ptext)..|
|00000200| 2f 2f 20 28 63 70 70 74 | 65 78 74 29 0d 0a 2f 2f |// (cppt|ext)..//|
|00000210| 20 28 63 70 70 74 65 78 | 74 29 0d 0a 2f 2f 20 28 | (cpptex|t)..// (|
|00000220| 63 70 70 74 65 78 74 29 | 0d 0a 0d 0a 76 61 72 20 |cpptext)|....var |
|00000230| 41 75 74 6f 6d 61 74 65 | 64 20 09 47 55 49 45 64 |Automate|d .GUIEd|
|00000240| 69 74 42 6f 78 20 09 09 | 45 64 69 74 3b 0d 0a 76 |itBox ..|Edit;..v|
|00000250| 61 72 20 41 75 74 6f 6d | 61 74 65 64 20 09 47 55 |ar Autom|ated .GU|
|00000260| 49 43 6f 6d 62 6f 42 75 | 74 74 6f 6e 20 09 4d 79 |IComboBu|tton .My|
|00000270| 53 68 6f 77 4c 69 73 74 | 42 74 6e 3b 0d 0a 76 61 |ShowList|Btn;..va|
|00000280| 72 20 41 75 74 6f 6d 61 | 74 65 64 20 09 47 55 49 |r Automa|ted .GUI|
|00000290| 4c 69 73 74 42 6f 78 20 | 09 09 4d 79 4c 69 73 74 |ListBox |..MyList|
|000002a0| 42 6f 78 3b 0d 0a 76 61 | 72 09 09 09 09 47 55 49 |Box;..va|r....GUI|
|000002b0| 4c 69 73 74 09 09 09 4c | 69 73 74 3b 0d 0a 0d 0a |List...L|ist;....|
|000002c0| 0d 0a 76 61 72 28 4d 65 | 6e 75 29 09 69 6e 74 09 |..var(Me|nu).int.|
|000002d0| 09 09 4d 61 78 56 69 73 | 69 62 6c 65 49 74 65 6d |..MaxVis|ibleItem|
|000002e0| 73 3b 0d 0a 76 61 72 28 | 4d 65 6e 75 29 09 62 6f |s;..var(|Menu).bo|
|000002f0| 6f 6c 09 09 62 4c 69 73 | 74 49 74 65 6d 73 4f 6e |ol..bLis|tItemsOn|
|00000300| 6c 79 3b 0d 0a 76 61 72 | 28 4d 65 6e 75 29 09 62 |ly;..var|(Menu).b|
|00000310| 6f 6f 6c 09 09 62 53 68 | 6f 77 4c 69 73 74 4f 6e |ool..bSh|owListOn|
|00000320| 46 6f 63 75 73 3b 0d 0a | 76 61 72 28 4d 65 6e 75 |Focus;..|var(Menu|
|00000330| 29 09 62 6f 6f 6c 09 09 | 62 52 65 61 64 4f 6e 6c |).bool..|bReadOnl|
|00000340| 79 3b 0d 0a 0d 0a 76 61 | 72 09 09 69 6e 74 09 09 |y;....va|r..int..|
|00000350| 49 6e 64 65 78 3b 0d 0a | 76 61 72 09 09 73 74 72 |Index;..|var..str|
|00000360| 69 6e 67 09 54 65 78 74 | 53 74 72 3b 0d 0a 0d 0a |ing.Text|Str;....|
|00000370| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 49 6e 69 74 43 |..functi|on InitC|
|00000380| 6f 6d 70 6f 6e 65 6e 74 | 28 47 55 49 43 6f 6e 74 |omponent|(GUICont|
|00000390| 72 6f 6c 6c 65 72 20 4d | 79 43 6f 6e 74 72 6f 6c |roller M|yControl|
|000003a0| 6c 65 72 2c 20 47 55 49 | 43 6f 6d 70 6f 6e 65 6e |ler, GUI|Componen|
|000003b0| 74 20 4d 79 4f 77 6e 65 | 72 29 0d 0a 7b 0d 0a 09 |t MyOwne|r)..{...|
|000003c0| 53 75 70 65 72 2e 49 6e | 69 74 63 6f 6d 70 6f 6e |Super.In|itcompon|
|000003d0| 65 6e 74 28 4d 79 43 6f | 6e 74 72 6f 6c 6c 65 72 |ent(MyCo|ntroller|
|000003e0| 2c 20 4d 79 4f 77 6e 65 | 72 29 3b 0d 0a 0d 0a 09 |, MyOwne|r);.....|
|000003f0| 4c 69 73 74 20 09 09 09 | 20 20 3d 20 4d 79 4c 69 |List ...|  = MyLi|
|00000400| 73 74 42 6f 78 2e 4c 69 | 73 74 3b 0d 0a 09 4c 69 |stBox.Li|st;...Li|
|00000410| 73 74 2e 4f 6e 43 68 61 | 6e 67 65 20 09 20 20 3d |st.OnCha|nge .  =|
|00000420| 20 49 74 65 6d 43 68 61 | 6e 67 65 64 3b 0d 0a 09 | ItemCha|nged;...|
|00000430| 4c 69 73 74 2e 62 48 6f | 74 54 72 61 63 6b 09 20 |List.bHo|tTrack. |
|00000440| 20 3d 20 74 72 75 65 3b | 0d 0a 09 4c 69 73 74 2e | = true;|...List.|
|00000450| 4f 6e 43 6c 69 63 6b 53 | 6f 75 6e 64 20 3d 20 43 |OnClickS|ound = C|
|00000460| 53 5f 43 6c 69 63 6b 3b | 0d 0a 09 4c 69 73 74 2e |S_Click;|...List.|
|00000470| 4f 6e 43 4c 69 63 6b 20 | 09 20 20 3d 20 49 6e 74 |OnCLick |.  = Int|
|00000480| 65 72 6e 61 6c 4c 69 73 | 74 43 6c 69 63 6b 3b 0d |ernalLis|tClick;.|
|00000490| 0a 20 20 20 20 4c 69 73 | 74 2e 4f 6e 49 6e 76 61 |.    Lis|t.OnInva|
|000004a0| 6c 69 64 61 74 65 20 3d | 20 49 6e 74 65 72 6e 61 |lidate =| Interna|
|000004b0| 6c 4f 6e 49 6e 76 61 6c | 69 64 61 74 65 3b 0d 0a |lOnInval|idate;..|
|000004c0| 0d 0a 20 20 20 20 4d 79 | 4c 69 73 74 42 6f 78 2e |..    My|ListBox.|
|000004d0| 48 69 64 65 28 29 3b 0d | 0a 0d 0a 09 45 64 69 74 |Hide();.|....Edit|
|000004e0| 2e 4f 6e 43 68 61 6e 67 | 65 20 09 09 09 3d 20 54 |.OnChang|e ...= T|
|000004f0| 65 78 74 43 68 61 6e 67 | 65 64 3b 0d 0a 09 45 64 |extChang|ed;...Ed|
|00000500| 69 74 2e 4f 6e 4d 6f 75 | 73 65 50 72 65 73 73 65 |it.OnMou|sePresse|
|00000510| 64 20 09 3d 20 49 6e 74 | 65 72 6e 61 6c 45 64 69 |d .= Int|ernalEdi|
|00000520| 74 50 72 65 73 73 65 64 | 3b 0d 0a 09 45 64 69 74 |tPressed|;...Edit|
|00000530| 2e 49 4e 49 4f 70 74 69 | 6f 6e 20 20 09 09 3d 20 |.INIOpti|on  ..= |
|00000540| 49 4e 49 4f 70 74 69 6f | 6e 3b 0d 0a 09 45 64 69 |INIOptio|n;...Edi|
|00000550| 74 2e 49 4e 49 44 65 66 | 61 75 6c 74 20 09 09 3d |t.INIDef|ault ..=|
|00000560| 20 49 4e 49 44 65 66 61 | 75 6c 74 3b 0d 0a 09 45 | INIDefa|ult;...E|
|00000570| 64 69 74 2e 62 52 65 61 | 64 4f 6e 6c 79 20 20 09 |dit.bRea|dOnly  .|
|00000580| 09 3d 20 62 52 65 61 64 | 4f 6e 6c 79 3b 0d 0a 0d |.= bRead|Only;...|
|00000590| 0a 09 4c 69 73 74 2e 4f | 6e 44 65 41 63 74 69 76 |..List.O|nDeActiv|
|000005a0| 61 74 65 20 3d 20 49 6e | 74 65 72 6e 61 6c 4c 69 |ate = In|ternalLi|
|000005b0| 73 74 44 65 41 63 74 69 | 76 61 74 65 3b 0d 0a 0d |stDeActi|vate;...|
|000005c0| 0a 09 4d 79 53 68 6f 77 | 4c 69 73 74 42 74 6e 2e |..MyShow|ListBtn.|
|000005d0| 4f 6e 43 6c 69 63 6b 20 | 3d 20 53 68 6f 77 4c 69 |OnClick |= ShowLi|
|000005e0| 73 74 42 6f 78 3b 0d 0a | 09 4d 79 53 68 6f 77 4c |stBox;..|.MyShowL|
|000005f0| 69 73 74 42 74 6e 2e 46 | 6f 63 75 73 49 6e 73 74 |istBtn.F|ocusInst|
|00000600| 65 61 64 20 3d 20 4c 69 | 73 74 3b 0d 0a 0d 0a 20 |ead = Li|st;.... |
|00000610| 20 20 20 53 65 74 48 69 | 6e 74 28 48 69 6e 74 29 |   SetHi|nt(Hint)|
|00000620| 3b 0d 0a 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |;....}..|..functi|
|00000630| 6f 6e 20 53 65 74 48 69 | 6e 74 28 73 74 72 69 6e |on SetHi|nt(strin|
|00000640| 67 20 4e 65 77 48 69 6e | 74 29 0d 0a 7b 0d 0a 09 |g NewHin|t)..{...|
|00000650| 6c 6f 63 61 6c 20 69 6e | 74 20 69 3b 0d 0a 09 53 |local in|t i;...S|
|00000660| 75 70 65 72 2e 53 65 74 | 48 69 6e 74 28 4e 65 77 |uper.Set|Hint(New|
|00000670| 48 69 6e 74 29 3b 0d 0a | 0d 0a 20 20 20 20 66 6f |Hint);..|..    fo|
|00000680| 72 20 28 69 3d 30 3b 69 | 3c 43 6f 6e 74 72 6f 6c |r (i=0;i|<Control|
|00000690| 73 2e 4c 65 6e 67 74 68 | 3b 69 2b 2b 29 0d 0a 20 |s.Length|;i++).. |
|000006a0| 20 20 20 09 43 6f 6e 74 | 72 6f 6c 73 5b 69 5d 2e |   .Cont|rols[i].|
|000006b0| 53 65 74 48 69 6e 74 28 | 4e 65 77 48 69 6e 74 29 |SetHint(|NewHint)|
|000006c0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000006d0| 20 49 6e 74 65 72 6e 61 | 6c 4c 69 73 74 44 65 41 | Interna|lListDeA|
|000006e0| 63 74 69 76 61 74 65 28 | 29 0d 0a 7b 0d 0a 09 69 |ctivate(|)..{...i|
|000006f0| 66 20 28 21 45 64 69 74 | 2e 62 50 65 6e 64 69 6e |f (!Edit|.bPendin|
|00000700| 67 46 6f 63 75 73 29 0d | 0a 09 09 4d 79 4c 69 73 |gFocus).|...MyLis|
|00000710| 74 42 6f 78 2e 48 69 64 | 65 28 29 3b 0d 0a 7d 0d |tBox.Hid|e();..}.|
|00000720| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 49 6e 74 65 |...funct|ion Inte|
|00000730| 72 6e 61 6c 4f 6e 49 6e | 76 61 6c 69 64 61 74 65 |rnalOnIn|validate|
|00000740| 28 47 55 49 43 6f 6d 70 | 6f 6e 65 6e 74 20 57 68 |(GUIComp|onent Wh|
|00000750| 6f 29 0d 0a 7b 0d 0a 09 | 69 66 20 28 20 57 68 6f |o)..{...|if ( Who|
|00000760| 20 21 3d 20 43 6f 6e 74 | 72 6f 6c 6c 65 72 2e 41 | != Cont|roller.A|
|00000770| 63 74 69 76 65 50 61 67 | 65 20 29 0d 0a 20 20 20 |ctivePag|e )..   |
|00000780| 20 09 72 65 74 75 72 6e | 3b 0d 0a 0d 0a 09 4d 79 | .return|;.....My|
|00000790| 4c 69 73 74 42 6f 78 2e | 48 69 64 65 28 29 3b 0d |ListBox.|Hide();.|
|000007a0| 0a 20 20 20 20 45 64 69 | 74 2e 53 65 74 46 6f 63 |.    Edi|t.SetFoc|
|000007b0| 75 73 28 4e 6f 6e 65 29 | 3b 0d 0a 7d 0d 0a 0d 0a |us(None)|;..}....|
|000007c0| 66 75 6e 63 74 69 6f 6e | 20 49 6e 74 65 72 6e 61 |function| Interna|
|000007d0| 6c 45 64 69 74 50 72 65 | 73 73 65 64 28 47 55 49 |lEditPre|ssed(GUI|
|000007e0| 43 6f 6d 70 6f 6e 65 6e | 74 20 53 65 6e 64 65 72 |Componen|t Sender|
|000007f0| 2c 20 62 6f 6f 6c 20 62 | 52 65 70 65 61 74 29 0d |, bool b|Repeat).|
|00000800| 0a 7b 0d 0a 09 69 66 20 | 28 20 28 45 64 69 74 2e |.{...if |( (Edit.|
|00000810| 62 52 65 61 64 4f 6e 6c | 79 29 20 26 26 20 28 21 |bReadOnl|y) && (!|
|00000820| 62 52 65 70 65 61 74 29 | 20 29 0d 0a 09 7b 0d 0a |bRepeat)| )...{..|
|00000830| 09 09 43 6f 6e 74 72 6f | 6c 6c 65 72 2e 62 49 67 |..Contro|ller.bIg|
|00000840| 6e 6f 72 65 4e 65 78 74 | 52 65 6c 65 61 73 65 20 |noreNext|Release |
|00000850| 3d 20 74 72 75 65 3b 0d | 0a 0d 0a 09 09 69 66 20 |= true;.|.....if |
|00000860| 28 20 21 4d 79 4c 69 73 | 74 42 6f 78 2e 62 56 69 |( !MyLis|tBox.bVi|
|00000870| 73 69 62 6c 65 20 29 0d | 0a 09 09 7b 0d 0a 09 09 |sible ).|...{....|
|00000880| 09 53 68 6f 77 4c 69 73 | 74 42 6f 78 28 53 65 6c |.ShowLis|tBox(Sel|
|00000890| 66 29 3b 0d 0a 09 09 7d | 0d 0a 09 09 65 6c 73 65 |f);....}|....else|
|000008a0| 0d 0a 09 09 09 48 69 64 | 65 4c 69 73 74 42 6f 78 |.....Hid|eListBox|
|000008b0| 28 29 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 72 65 74 75 |();...}.|....retu|
|000008c0| 72 6e 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |rn;..}..|..functi|
|000008d0| 6f 6e 20 62 6f 6f 6c 20 | 49 6e 74 65 72 6e 61 6c |on bool |Internal|
|000008e0| 4c 69 73 74 43 6c 69 63 | 6b 28 47 55 49 43 6f 6d |ListClic|k(GUICom|
|000008f0| 70 6f 6e 65 6e 74 20 53 | 65 6e 64 65 72 29 0d 0a |ponent S|ender)..|
|00000900| 7b 0d 0a 09 4c 69 73 74 | 2e 49 6e 74 65 72 6e 61 |{...List|.Interna|
|00000910| 6c 4f 6e 43 6c 69 63 6b | 28 53 65 6e 64 65 72 29 |lOnClick|(Sender)|
|00000920| 3b 0d 0a 09 45 64 69 74 | 2e 53 65 74 46 6f 63 75 |;...Edit|.SetFocu|
|00000930| 73 28 6e 6f 6e 65 29 3b | 0d 0a 09 72 65 74 75 72 |s(none);|...retur|
|00000940| 6e 20 74 72 75 65 3b 0d | 0a 0d 0a 7d 0d 0a 0d 0a |n true;.|...}....|
|00000950| 66 75 6e 63 74 69 6f 6e | 20 48 69 64 65 4c 69 73 |function| HideLis|
|00000960| 74 42 6f 78 28 29 0d 0a | 7b 0d 0a 09 4d 79 4c 69 |tBox()..|{...MyLi|
|00000970| 73 74 42 6f 78 2e 48 69 | 64 65 28 29 3b 0d 0a 7d |stBox.Hi|de();..}|
|00000980| 0d 0a 0d 0a 65 76 65 6e | 74 20 53 65 74 56 69 73 |....even|t SetVis|
|00000990| 69 62 69 6c 69 74 79 28 | 62 6f 6f 6c 20 62 49 73 |ibility(|bool bIs|
|000009a0| 56 69 73 69 62 6c 65 29 | 0d 0a 7b 0d 0a 09 53 75 |Visible)|..{...Su|
|000009b0| 70 65 72 2e 53 65 74 56 | 69 73 69 62 69 6c 69 74 |per.SetV|isibilit|
|000009c0| 79 28 62 49 73 56 69 73 | 69 62 6c 65 29 3b 0d 0a |y(bIsVis|ible);..|
|000009d0| 0d 0a 09 45 64 69 74 2e | 53 65 74 56 69 73 69 62 |...Edit.|SetVisib|
|000009e0| 69 6c 69 74 79 28 62 49 | 73 56 69 73 69 62 6c 65 |ility(bI|sVisible|
|000009f0| 29 3b 0d 0a 09 4d 79 53 | 68 6f 77 4c 69 73 74 42 |);...MyS|howListB|
|00000a00| 74 6e 2e 53 65 74 56 69 | 73 69 62 69 6c 69 74 79 |tn.SetVi|sibility|
|00000a10| 28 62 49 73 56 69 73 69 | 62 6c 65 29 3b 0d 0a 09 |(bIsVisi|ble);...|
|00000a20| 4d 79 4c 69 73 74 42 6f | 78 2e 53 65 74 56 69 73 |MyListBo|x.SetVis|
|00000a30| 69 62 69 6c 69 74 79 28 | 66 61 6c 73 65 29 3b 0d |ibility(|false);.|
|00000a40| 0a 7d 0d 0a 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |.}......|function|
|00000a50| 20 62 6f 6f 6c 20 53 68 | 6f 77 4c 69 73 74 42 6f | bool Sh|owListBo|
|00000a60| 78 28 47 55 49 43 6f 6d | 70 6f 6e 65 6e 74 20 53 |x(GUICom|ponent S|
|00000a70| 65 6e 64 65 72 29 0d 0a | 7b 0d 0a 0d 0a 09 4d 79 |ender)..|{.....My|
|00000a80| 4c 69 73 74 42 6f 78 2e | 53 65 74 56 69 73 69 62 |ListBox.|SetVisib|
|00000a90| 69 6c 69 74 79 28 21 4d | 79 4c 69 73 74 42 6f 78 |ility(!M|yListBox|
|00000aa0| 2e 62 56 69 73 69 62 6c | 65 29 3b 0d 0a 0d 0a 09 |.bVisibl|e);.....|
|00000ab0| 69 66 20 28 4d 79 4c 69 | 73 74 42 6f 78 2e 62 56 |if (MyLi|stBox.bV|
|00000ac0| 69 73 69 62 6c 65 29 0d | 0a 09 09 4c 69 73 74 2e |isible).|...List.|
|00000ad0| 53 65 74 46 6f 63 75 73 | 28 6e 6f 6e 65 29 3b 0d |SetFocus|(none);.|
|00000ae0| 0a 0d 0a 09 72 65 74 75 | 72 6e 20 74 72 75 65 3b |....retu|rn true;|
|00000af0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000b00| 49 74 65 6d 43 68 61 6e | 67 65 64 28 47 55 49 43 |ItemChan|ged(GUIC|
|00000b10| 6f 6d 70 6f 6e 65 6e 74 | 20 53 65 6e 64 65 72 29 |omponent| Sender)|
|00000b20| 0d 0a 7b 0d 0a 09 45 64 | 69 74 2e 53 65 74 54 65 |..{...Ed|it.SetTe|
|00000b30| 78 74 28 4c 69 73 74 2e | 53 65 6c 65 63 74 65 64 |xt(List.|Selected|
|00000b40| 54 65 78 74 28 29 29 3b | 0d 0a 09 49 6e 64 65 78 |Text());|...Index|
|00000b50| 20 3d 20 4c 69 73 74 2e | 49 6e 64 65 78 3b 0d 0a | = List.|Index;..|
|00000b60| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 54 65 |}....fun|ction Te|
|00000b70| 78 74 43 68 61 6e 67 65 | 64 28 47 55 49 43 6f 6d |xtChange|d(GUICom|
|00000b80| 70 6f 6e 65 6e 74 20 53 | 65 6e 64 65 72 29 0d 0a |ponent S|ender)..|
|00000b90| 7b 0d 0a 09 54 65 78 74 | 53 74 72 20 3d 20 45 64 |{...Text|Str = Ed|
|00000ba0| 69 74 2e 54 65 78 74 53 | 74 72 3b 0d 0a 09 4f 6e |it.TextS|tr;...On|
|00000bb0| 43 68 61 6e 67 65 28 73 | 65 6c 66 29 3b 0d 0a 7d |Change(s|elf);..}|
|00000bc0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|00000bd0| 54 65 78 74 28 73 74 72 | 69 6e 67 20 4e 65 77 54 |Text(str|ing NewT|
|00000be0| 65 78 74 29 0d 0a 7b 0d | 0a 09 45 64 69 74 2e 53 |ext)..{.|..Edit.S|
|00000bf0| 65 74 54 65 78 74 28 4e | 65 77 54 65 78 74 29 3b |etText(N|ewText);|
|00000c00| 0d 0a 09 4c 69 73 74 2e | 46 69 6e 64 28 4e 65 77 |...List.|Find(New|
|00000c10| 54 65 78 74 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |Text);..|}....fun|
|00000c20| 63 74 69 6f 6e 20 73 74 | 72 69 6e 67 20 47 65 74 |ction st|ring Get|
|00000c30| 28 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 73 74 |()..{...|local st|
|00000c40| 72 69 6e 67 20 74 65 6d | 70 3b 0d 0a 0d 0a 09 74 |ring tem|p;.....t|
|00000c50| 65 6d 70 20 3d 20 4c 69 | 73 74 2e 47 65 74 28 29 |emp = Li|st.Get()|
|00000c60| 3b 0d 0a 0d 0a 09 69 66 | 20 28 20 74 65 6d 70 7e |;.....if| ( temp~|
|00000c70| 3d 45 64 69 74 2e 47 65 | 74 54 65 78 74 28 29 20 |=Edit.Ge|tText() |
|00000c80| 29 0d 0a 09 09 72 65 74 | 75 72 6e 20 45 64 69 74 |)....ret|urn Edit|
|00000c90| 2e 47 65 74 54 65 78 74 | 28 29 3b 0d 0a 09 65 6c |.GetText|();...el|
|00000ca0| 73 65 0d 0a 09 09 72 65 | 74 75 72 6e 20 74 65 6d |se....re|turn tem|
|00000cb0| 70 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |p;..}...|.functio|
|00000cc0| 6e 20 73 74 72 69 6e 67 | 20 47 65 74 54 65 78 74 |n string| GetText|
|00000cd0| 28 29 20 7b 0d 0a 09 72 | 65 74 75 72 6e 20 73 65 |() {...r|eturn se|
|00000ce0| 6c 66 2e 47 65 74 28 29 | 3b 0d 0a 7d 0d 0a 0d 0a |lf.Get()|;..}....|
|00000cf0| 66 75 6e 63 74 69 6f 6e | 20 6f 62 6a 65 63 74 20 |function| object |
|00000d00| 47 65 74 4f 62 6a 65 63 | 74 28 29 0d 0a 7b 0d 0a |GetObjec|t()..{..|
|00000d10| 09 6c 6f 63 61 6c 20 73 | 74 72 69 6e 67 20 74 65 |.local s|tring te|
|00000d20| 6d 70 3b 0d 0a 0d 0a 09 | 74 65 6d 70 20 3d 20 4c |mp;.....|temp = L|
|00000d30| 69 73 74 2e 47 65 74 28 | 29 3b 0d 0a 0d 0a 09 69 |ist.Get(|);.....i|
|00000d40| 66 20 28 20 74 65 6d 70 | 7e 3d 45 64 69 74 2e 47 |f ( temp|~=Edit.G|
|00000d50| 65 74 54 65 78 74 28 29 | 20 29 0d 0a 09 09 72 65 |etText()| )....re|
|00000d60| 74 75 72 6e 20 4c 69 73 | 74 2e 47 65 74 4f 62 6a |turn Lis|t.GetObj|
|00000d70| 65 63 74 28 29 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 |ect();..|.else...|
|00000d80| 09 72 65 74 75 72 6e 20 | 6e 6f 6e 65 3b 0d 0a 7d |.return |none;..}|
|00000d90| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |....func|tion str|
|00000da0| 69 6e 67 20 47 65 74 45 | 78 74 72 61 28 29 0d 0a |ing GetE|xtra()..|
|00000db0| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 73 74 72 69 6e 67 |{...loca|l string|
|00000dc0| 20 74 65 6d 70 3b 0d 0a | 0d 0a 09 74 65 6d 70 20 | temp;..|...temp |
|00000dd0| 3d 20 4c 69 73 74 2e 47 | 65 74 28 29 3b 0d 0a 0d |= List.G|et();...|
|00000de0| 0a 09 69 66 20 28 20 74 | 65 6d 70 7e 3d 45 64 69 |..if ( t|emp~=Edi|
|00000df0| 74 2e 47 65 74 54 65 78 | 74 28 29 20 29 0d 0a 09 |t.GetTex|t() )...|
|00000e00| 09 72 65 74 75 72 6e 20 | 4c 69 73 74 2e 47 65 74 |.return |List.Get|
|00000e10| 45 78 74 72 61 28 29 3b | 0d 0a 09 65 6c 73 65 0d |Extra();|...else.|
|00000e20| 0a 09 09 72 65 74 75 72 | 6e 20 22 22 3b 0d 0a 7d |...retur|n "";..}|
|00000e30| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|00000e40| 49 6e 64 65 78 28 69 6e | 74 20 49 29 0d 0a 7b 0d |Index(in|t I)..{.|
|00000e50| 0a 09 4c 69 73 74 2e 53 | 65 74 49 6e 64 65 78 28 |..List.S|etIndex(|
|00000e60| 69 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |i);..}..|..functi|
|00000e70| 6f 6e 20 69 6e 74 20 47 | 65 74 49 6e 64 65 78 28 |on int G|etIndex(|
|00000e80| 29 0d 0a 7b 0d 0a 09 72 | 65 74 75 72 6e 20 4c 69 |)..{...r|eturn Li|
|00000e90| 73 74 2e 49 6e 64 65 78 | 3b 0d 0a 7d 0d 0a 0d 0a |st.Index|;..}....|
|00000ea0| 66 75 6e 63 74 69 6f 6e | 20 41 64 64 49 74 65 6d |function| AddItem|
|00000eb0| 28 73 74 72 69 6e 67 20 | 49 74 65 6d 2c 20 4f 70 |(string |Item, Op|
|00000ec0| 74 69 6f 6e 61 6c 20 6f | 62 6a 65 63 74 20 45 78 |tional o|bject Ex|
|00000ed0| 74 72 61 2c 20 4f 70 74 | 69 6f 6e 61 6c 20 73 74 |tra, Opt|ional st|
|00000ee0| 72 69 6e 67 20 53 74 72 | 29 0d 0a 7b 0d 0a 09 4c |ring Str|)..{...L|
|00000ef0| 69 73 74 2e 41 64 64 28 | 49 74 65 6d 2c 45 78 74 |ist.Add(|Item,Ext|
|00000f00| 72 61 2c 53 74 72 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |ra,Str);|..}....f|
|00000f10| 75 6e 63 74 69 6f 6e 20 | 52 65 6d 6f 76 65 49 74 |unction |RemoveIt|
|00000f20| 65 6d 28 69 6e 74 20 69 | 74 65 6d 2c 20 6f 70 74 |em(int i|tem, opt|
|00000f30| 69 6f 6e 61 6c 20 69 6e | 74 20 43 6f 75 6e 74 29 |ional in|t Count)|
|00000f40| 0d 0a 7b 0d 0a 09 4c 69 | 73 74 2e 52 65 6d 6f 76 |..{...Li|st.Remov|
|00000f50| 65 28 69 74 65 6d 2c 20 | 43 6f 75 6e 74 29 3b 0d |e(item, |Count);.|
|00000f60| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 73 |.}....fu|nction s|
|00000f70| 74 72 69 6e 67 20 47 65 | 74 49 74 65 6d 28 69 6e |tring Ge|tItem(in|
|00000f80| 74 20 69 6e 64 65 78 29 | 0d 0a 7b 0d 0a 09 4c 69 |t index)|..{...Li|
|00000f90| 73 74 2e 53 65 74 49 6e | 64 65 78 28 49 6e 64 65 |st.SetIn|dex(Inde|
|00000fa0| 78 29 3b 0d 0a 09 72 65 | 74 75 72 6e 20 4c 69 73 |x);...re|turn Lis|
|00000fb0| 74 2e 47 65 74 28 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |t.Get();|..}....f|
|00000fc0| 75 6e 63 74 69 6f 6e 20 | 6f 62 6a 65 63 74 20 47 |unction |object G|
|00000fd0| 65 74 49 74 65 6d 4f 62 | 6a 65 63 74 28 69 6e 74 |etItemOb|ject(int|
|00000fe0| 20 69 6e 64 65 78 29 0d | 0a 7b 0d 0a 09 4c 69 73 | index).|.{...Lis|
|00000ff0| 74 2e 53 65 74 49 6e 64 | 65 78 28 49 6e 64 65 78 |t.SetInd|ex(Index|
|00001000| 29 3b 0d 0a 09 72 65 74 | 75 72 6e 20 4c 69 73 74 |);...ret|urn List|
|00001010| 2e 47 65 74 4f 62 6a 65 | 63 74 28 29 3b 0d 0a 7d |.GetObje|ct();..}|
|00001020| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |....func|tion str|
|00001030| 69 6e 67 20 66 69 6e 64 | 28 73 74 72 69 6e 67 20 |ing find|(string |
|00001040| 54 65 78 74 2c 20 6f 70 | 74 69 6f 6e 61 6c 20 62 |Text, op|tional b|
|00001050| 6f 6f 6c 20 62 45 78 61 | 63 74 29 0d 0a 7b 0d 0a |ool bExa|ct)..{..|
|00001060| 09 72 65 74 75 72 6e 20 | 4c 69 73 74 2e 46 69 6e |.return |List.Fin|
|00001070| 64 28 54 65 78 74 2c 62 | 45 78 61 63 74 29 3b 0d |d(Text,b|Exact);.|
|00001080| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 69 |.}....fu|nction i|
|00001090| 6e 74 20 49 74 65 6d 43 | 6f 75 6e 74 28 29 0d 0a |nt ItemC|ount()..|
|000010a0| 7b 0d 0a 09 72 65 74 75 | 72 6e 20 4c 69 73 74 2e |{...retu|rn List.|
|000010b0| 49 74 65 6d 43 6f 75 6e | 74 3b 0d 0a 7d 0d 0a 0d |ItemCoun|t;..}...|
|000010c0| 0a 66 75 6e 63 74 69 6f | 6e 20 52 65 61 64 4f 6e |.functio|n ReadOn|
|000010d0| 6c 79 28 62 6f 6f 6c 20 | 62 29 0d 0a 7b 0d 0a 09 |ly(bool |b)..{...|
|000010e0| 45 64 69 74 2e 62 52 65 | 61 64 4f 6e 6c 79 20 3d |Edit.bRe|adOnly =|
|000010f0| 20 62 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 | b;..}..|..functi|
|00001100| 6f 6e 20 49 6e 74 65 72 | 6e 61 6c 4f 6e 4d 6f 75 |on Inter|nalOnMou|
|00001110| 73 65 50 72 65 73 73 65 | 64 28 47 55 49 43 6f 6d |sePresse|d(GUICom|
|00001120| 70 6f 6e 65 6e 74 20 53 | 65 6e 64 65 72 2c 20 62 |ponent S|ender, b|
|00001130| 6f 6f 6c 20 62 52 65 70 | 65 61 74 29 0d 0a 7b 0d |ool bRep|eat)..{.|
|00001140| 0a 09 69 66 20 28 21 62 | 52 65 70 65 61 74 29 0d |..if (!b|Repeat).|
|00001150| 0a 20 20 20 20 7b 0d 0a | 09 09 4d 79 4c 69 73 74 |.    {..|..MyList|
|00001160| 42 6f 78 2e 53 68 6f 77 | 28 29 3b 0d 0a 20 20 20 |Box.Show|();..   |
|00001170| 20 7d 0d 0a 7d 0d 0a 0d | 0a 00                   | }..}...|..      |
+--------+-------------------------+-------------------------+--------+--------+